﻿Module Module1
  Sub Main()

    Dim nl As String = Environment.NewLine
    Dim testo As String = _
        "Questo è il nuovo libro su VB " & _
        "che riguarda il linguaggio VB " & _
        "e la programmazione con VB 2010"
    Dim stringaCercata As String = "VB"
    Dim messaggio As String = ""
    messaggio &= "elenco posizioni:" & nl
    Dim posizione As Integer = 0
    Do While posizione <> -1
      posizione = testo.IndexOf("VB", posizione)
      If posizione >= 0 Then
        messaggio &= _
            "posizione = " & posizione & nl
        posizione += 1
      Else
        messaggio &= "fine elenco = " & _
            testo.LastIndexOf("C#")
      End If
    Loop
    Console.WriteLine(messaggio)
    Console.ReadLine()

  End Sub
End Module
